home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / rcheck.arc / CLEAR.CMD < prev    next >
Encoding:
Text File  |  1984-12-18  |  384 b   |  21 lines
  1. NEW
  2. TYPE b:CLEAR.MNU
  3. FILLIN MAIN USING "ENTER CHOICE  " AT 19 30
  4. IF MAIN = 1 THEN
  5.    INPUT b:CLEAR1.CMD
  6. ENDIF
  7. IF MAIN = 2 THEN
  8.    INPUT b:CLEAR2.CMD
  9. ENDIF
  10. IF MAIN = 3 THEN
  11.    INPUT b:CLEAR3.CMD
  12. ENDIF
  13. IF MAIN = 99 THEN
  14.    QUIT
  15. ENDIF
  16. IF MAIN = 9 THEN
  17.    QUIT TO b:RCHECK.CMD
  18. ENDIF
  19. QUIT TO b:CLEAR.CMD
  20.  
  21.